--1. Write the converse of fromList for the List type: a function that takes a List a and
--generates a [a].

data List a = Cons a (List a)
            | Nil
              deriving (Show)

fromList (x:xs) = Cons x (fromList xs)
fromList [] = Nil


fromConsList (Cons x xs) = x : (fromConsList xs)
fromConsList Nil = []
